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sees 1er$ep-1986 18:46:39 EMTAACPeSRESFAMHOR- B32; 


H 1 001 MODULE FRMHDR (LANGUAGE (BLISS32) , 

; ¢ 0099 o IDENT = SPettity 

3 8 )= 

= SB pom 

: 8 000g \ leueenntectnaeeenenenenentennentententneretretrntrettnenntenennernennetentent 
: :* ® 
; 8 0008 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
$ 9 0009 1 '* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
$ 19 Bos : :* ALL RIGHTS RESERVED. * 
; H ea 
; 1 Bolg 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
. 2 0015 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
3; (14 0014 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHE * 
; 0015 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
s 6 Bote 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
; i? Bate : r TRANSFERRED. * 
3 ! * 
; 9 0019 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
: 20 0020 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
: $3 itd : - CORPORATION. * 
° . * 
s @ $058 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
; & 0024 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
: 2 0025 1 !* * 
; @ 0026 1 !# * 
2 sf it 4 4 Le A ERA 
3 1 

; 9 ik 4 1 S44 

; 0 0030 i! 

3 1 0031 1 ! FACILITY: MTAACP 

3 38 Oe 1! 

3 3 003 1 ! ABSTRACT: 

; 0034 1! 

; 0035 1! This module formats HDR1, HDR2, HDR3, and HDR4. 

;: » 0036 1! 

: 37 0037 1 ! ENVIRONMENT: 

; | «638 0038 1! 

; 0039 1! Starlet operating system, including privileged system services 

: 40 0040 1! and internal exec routines. 

a}. OF 0041 1! 

; $§ 0042 1 !-- 

3; 6 0043 1 

; 6464 044 1! 

; | «(45 045 1! 

HY 28 Bots } : AUTHOR: D. H. GILLESPIE, CREATION DATE: 2-JUN-77 14:35 

; | «648 0048 1 ! MODIFIED BY: 

; | «649 0049 1! 

: 2 0050 1! v03-003 MMD0301 Reg Dumont, 20-Jun-1984 11:26 

3. (OST 0051 1! Fix to default HDR4 file extension to ASCII zeros instead of 
s 26 B0e8 : decimal zeros 

: 654 054 1! v03-002 MMD0279 Meg Dumont, 23-Mar-1984 10:25 

s 635 055 1! Fix long file name supper’ such that for ANSI version 

; 28 528 7! 3 volumes it converts the exentsion Lengt to 

2 0057 1! ASCII characters before writing it to the label. 
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v04-000 4-Sep -1382 6: 246: 3 MTAACP. SROI FRMHDR.B32; 
; 8 38 1! 
3 9 7% V03-001 MMD0160 Dumont, Go~Apr~ 1985 9:3 
;s & 60 1! Add long file a... "support include: 1) Change EoRmat of TLE NAME 
; 6) 061 1! te understand that VM ong file names are split betwee 
3; § OO¢ 1! e HDR1 and HDR4 Labels. 2) Change FORMAT_HDRS to format the 
: o7 8207 : ADRS Added support for interchange qualifier. 
: 65 0065 1 v02=012 DMw00069 David Nichagl Walp 11-Jan-1981 
; 66 R208 1! Added support of ANSI ‘‘a'' 17 character filename thru 
; 24 5d : } Q10 filename parameter 
: 69 069 1 i V02=011 DMW00064 David Michael Walp 6-Jan-1981 
: £9 Bory ! Return VMS file spec created by ASCNAME without quotes 
Pat gore | VO2-010 DMW00063 David Michael wal 18-Dec-1981 
: i th : } Finished ANSI ‘'a'' 17 character file name support 
; 0075 1: v02-009 pMw00053 David Michael Walp 10-Nov-1981 
s 0076 1! Return if ANSI resultant name, return it minus trailing 
: 77 0077 1! spaces. 
Pee 0078 1! 
; 79 0079 1! V02-008 DMW00043 pevid Michael Walp 27-0ct-1981 
3 si B280 ! H Added ANSI ‘'a'' 17 character file name support 
: 8 0082 1} v02-007 pMWw00016 David Michael Walp 20-May- -1981 
= 0083 1! Get the File Set Id from the MVL rather then ist volume 
: Be Sone : mounted Label in the VCB. 
: 86 0086 1! v02-006 DMw00008 David Bichoot Walp 23-Jan-1981 
2 - av 0087 1! Added check for wild card, needed beacuse of expanded 
: 0088 1! abt card support. Also code commented out for support of 
: 8? 494 : HDR2 attributes. 
; 31 0091 ! V02-005 REFORMAT Maria del C. Nasr 30-Jun-1980 
: 93 0093 1! A0004 MCNO008 Maria del C. 22-Feb-1980 16:29 
3 4 B03¢ : Temporary support of RMS BE a in HDR2 
: 96 0096 1: A0003  MCNO003 Maria del C. Nasr 28-Sep-79 10:23 
o> av 0097 1! Add HDR3 processing 
; 98 0098 1! 
; 99 0099 1 !e* 
; 100 0100 1 
: 6101 0101 1 LIBRARY ‘SYSS$LIBRARY:LIB.L32'; 
; Ie Hy 1 
; 10 0105 1 REQUIRE 'SRC$:MTADEF.B32'; 
3: 104 0487 1 
3; 105 0488 1 — ROUTINE 
; 106 0489 1 FORMAT_HDRS : COMMON_CALL NOVALUE; ! format headers 
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1 7300138 95213538 EMTAACPSREd 
MACRO RADSO_TO_VMS ( STRING, VERSION, OUT_INDEX ) = 
144 
! 
i FUNCTIONAL DESCRIPTION: 
This routine converts a RAD-50 file name block into the 


equivalent VMS format name. Long file names are not supported 
in RADSS mode. ° = 


i CALLING SEQUENCE: 
RAD5O_TO_VMS ( ARG1, ARG2, ARG3 ) 


INPUT PARAMETERS: 
none 
IMPLICIT INPUTS: 
NMBLOCK = the Radix 50 name block 
OUTPUT PARAMETERS: 
ARG1 = buffer for file name string 
ARG2 = word to receive version number 
ARG2 = size of filename string 
IMPLICIT OUTPUTS: 
none 


SIDE EFFECTS: 
none 


BEGIN 


EXTERNAL 
NMBLOCK : VECTOR C , WORD J; 


the rad50 name block 


MAP 
STRING : VECTOR C , BYTE J, 
VERSION : WORD, 
OUT_INDEX : LONG; 


LOCAL 
CHARS : VECTOR C 3, BYTE J; 


string buffer arg 
version number arg 
file name size arg 


!' Set up the index. Then start up the outer loop, which iterates 
over name and type fields. 


OUT_INDEX = 0; 
INCR K FROM 0 TO 3 BY 3 DO 
BEGIN 


! There are 3 words for name, 1 for type. Expand each word into 


! The next a iterates over the RAD-50 words in the name block. 
} the 3 RAD-50 characters. 


holding place for characters 


FRMHDR 
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p30! 


wan FROM 0 TO ( IF .K THEN O ELSE 2 ) 
BEGIN 
CHARS C0 ] =  .NMBLOCK C .1 + WK / (460 * 40 ); 
CHARS | 1 } = ( .NMBLOCK ( .1 + JK / 40) MOD 40; 
CHARS ( 2 ] = .NMBLOCK C .I + .K MOD 40: 
' Now convert each character into the correct ASCII code and store 
} it in the string buffer if it is not null. 
iNCR J FROM 0 10 2 po 
IF gst -J J NEQ 0 THEN 
STRING C .OUT_INDEX ) = ( IF stuns L st 2 » $ 30 
THEN ( .CHARS 4i0e14) + “a* 
ELSE ( .CHARS dji= FO) @ *O* Jeg 
OUT_INDEX = .OUT_INDEX + 1; 
END; 
END; ! end of word loop 
} At the end of name field, insert the dot. 
if .K EQL O 
N 
tie 
STRING C .OUT_INDEX ] = 
ou ure i" DEX = .OUT_INDEX + hs 
END; ! end of outer loop 


fill in the version number 
VERSION = .NMBLOCK C 4]; 


END; 
z; ! end of macro RADSO_TO_ASCII 


1] gs 73:48:39 ERTAACPeSReSFRAMDR: B30; 
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MACRO FORMAT_FILE_NAME = 
'o¢ 


i) 
FUNCTIONAL DESCRIPTION: 
formats the File’s Name, Type and Version to placed into the header 


CALLING SEQUENCE: 
FORMAT _F ILE_NAME 


INPUT PARAMETERS: 
none 


IMPLICIT INPUTS: 
none 

OUTPUT PARAMETERS: 
none 


IMPLICIT OUTPUTS: 
file name is formatted in the HDR1 and HDR4 Labels 


SIDE EFFECTS: 


none 
BEGIN 
EXTERNAL ROUTINE ' turn VMS version number 
ALC_TAPE_VER ! into ANSI generation nums 
PARSE_NAME : parse file name string 
i 


€ TYPE, 
PARSE QUOTED_NAME: COMMON_CALL NOVALUE, ! parse a spec in quotes 


RESULTANT STRING: COMMON_CALL NOVALUE, return resultant string 


STRIP_VERSION : COMMON CALL, ' strip version from file spec 

SYS$FAO : ADDRESSING_MODE ( ABSOLUTE ); ! format generation num 
EXTERNAL 

ANSI_NAME_SIZE : SIGNED BYTE, ! size of the ANSI file name 

HDR1 : REF BBLOCK, ! point to the HDR1 

HDR4 : REF BBLOCK, ' point to the HDR4 

10_PACKET : REF BBLOCK, ' pointer to current IRP 

LOTCAL_FIB : BBLOCK; ' copy of users File Info Blk 
LOCAL 

ABD : REF BBLOCKVECTOR C , ABDSC LENGTH J 


pointer to ACP buffer desc 


DESCRIP : VECTOR C 2, LONG J], ! general purpose descriptor 
FILE_SPEC_PTR : LONG, ' point to file name buffer 
FILE_SPEC LEN : LONG : ength of file name buffer 
NAME ~ STRING : VECTOR C FILE_SPEC_MAX, BYTE J, 


{ buff to hold converted RADSO 
ILE_1D : VECTOR fF LE_SPEC_MAX, BYTE), ! h FILE ID 


1 le 
GEN_RUM_VER : FONG a ' ANSI ware ten numbers 
QUOTED _RAME : BITVECTOR ¢ 1 J, ' was the spec passed in quotes 
VERSION : WORD; ' VMS version number 


F 12 
1e-80p-1986 19:46:39 ERTAACPeSRESFRAHOR 036; 


>; 26 M0643 1 

; 26 M Ose 1 ! which filename should be used 

3 re: : ve? ! ! get the filename from name block if not specifed as attribute 
; ee | ge 1 ap = LOCK C .IO_PACKET C IRPSL synere ], AIBSL_DESCRIPT J; 
: 26 m 0648 1 IF .ABD C ABDSC _NAME , ABD$W_COUNT J EQLU 

: $86 mosso yO HEN 

3 0 a re 1 tt TO_VMS ( NAME STRING, VERSION, FILE_SPEC_LEN ); 
> 271 w 065¢ 1 FILE SPEC_PTR = NAME STR In NG; 

: e7 m 0655 1 QUOTED_NAME C 0 J) = FAL 

: 27 i eet 1 ND 

: 276 m 0655 1 ELSE 

s es i.) 8928 1 BEGIN 

; 276 m 0657 1 FILE_SPEC_LEN = .ABD [ ABDSC_NAME, ABDSW_ sous a3 

: 77 m 0658 1 FILE_SPEC_PTR = .ABD ABDSC— “NAME, ABDSW- ie F 

3 re . +84 : ABD ABDSC~ NAME, ABDSW_ teat 4 13 
; 280 Mm 0661 1 ' do not allow wild cards in the version field 

: 281 i R906 1 ! 

; es M 066 1 VERSION = STRIP_VERSION ( Fite _SPEC_LEN, 

: 28 Mm 0664 1 FILE-SPEC_PTR, 

: 284 0665 1 FALSE, 

; 285 | B68 1 QUOTED NAME C0) ); 

: 286 m 0667 1 END; 

3; 287 ™ 0668 1 

; 288 m 0669 1 ! check that it is not to large 

; 289 ™ 0670 1 ! 

3 Sy : bee, : IF .VERSION GTRU 32767 THEN ERR_EXIT ( SS$_BADFILEVER ); 
: 4 i $e78 1 ! Space fill the temporary FILE_ID field 

:; 2 ™ 0674 1 

> 294 m 0675 1 CHSFILL(" *,FILE_SPEC_MAX,FILE_ID); 

; 295 i Bere 1 

; +4 : 44 ! } parse the file name if is a VMS file spec and place into HDR1 
3 98 4m 0679 1 IF .ANSI_NAME_SIZE LSS 0 

; 299 ™ 0680 1 aoe ® 

; 301 ra] ¢ 1 BE SER IPT f 9 } = FILE_SPEC_MAX; 

3 4 m 068 1 DESCRIPT = FILE-I pCoy; 

; i Bose 1 

: be 4 5 \ call the correct parse routine 

3 OS ” 1 IF .QUOTED_NAME C 0 J) 

3 0 | 1 THEN 

; 508 * 1 BEGIN 

: 309 * 1 PARSE _QUOTED_NAME ( .FILE_SPEC_LEN, 

; 3510 s 1 -FILE SPEC_PTR, 

; 1 : ! DESCRIPT ); 

: 18 _ : set a dummy value so it is tested to see if it is VMS spec 
; 315 c 1 ANSI_NAME_SIZE = 1; 

: 1g 4 1 

: 1 ™ 1 ELSE 

$ 18 A 1 BEGIN 
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v04-000 1 ~3enn 138% 95:18:35 MTAACP_SRCIFRMHDR.B32: ’ (3) 
19 0 IF NOT PARSE_NAME_TYPE ( dain ik ! no wild cards allowed 
0 1 -FILE_SPEC_LEN, 
1 ¢ FILE SPEC_PTR, 
§ DESCRIPT ) 
4 THEN ERR_EXIT ( SSS_BADFILENAME ); 
4 5 END; 
5 $ END; 
§ 8 ' test if the file spec give to us by ATRS_ASCNAME or in quotes is a VMS 
8 9 ' spec so we do not return it in quotes. A size of zero will not work 
9 : cause you need at least a “’."’ 
1 IF .ANSI_NAME_SIZE GTR 0 
¢ THEN 
BEGIN 
EXTERNAL WORK_AREA; ! address of general work area 
5 DESCRIPT C 0 J = FILE_SPEC_MAX; 
DESCRIPT 1 = WORK_AREA; 
37 IF PARSE_NAME_TYPE ( FALSE, ! no wild cards allowed 
38 FILE_SPEC_MAX 


FILE-ID oy, 
THEN ANSI_NAME_SIZE = =1; 
END; 


Fun O VOOwoulfwn—o0 


! FILL im the HDR1 FILE ID field and the HDR4 Label. 


CHSMOVE (HDISS_FILEID, FILE 1D, HORICHDIST Fite 103); 
CHSMOVE (HD4SS_FILEID_EXT, FILE_IDCHD1$S_FILEID » HDR4CHD4ST_FILEID_EXTI); 


Check the Length of the file name. If the file name will fit in 

the HDR1 FILE ID then set the HDR4 Length to zero. Else set up 

the lengths such that the HDR1 FILE ID is filed with the name 

then the remainder of the name is put in the HDR4 Label with the 

size that is in the HDR4 Label only. 

PLEASE NOTE that the actual implementation of this is different for 
volumes with a 4 in the VOL1 standard field as opposed to a 3 or less. 


SOOONOUES WN CO OONAULSWA OO 


This is because the new standard allows us to write any kind 
of ote a, RpLenentot sen dependant fields. The old standard did not allow 
us to do S. 


BEGIN 


PAA AMMMI 


MEAN —OO0ONOW 


CvT2 = DESCRIPTOR ("!272W"); 
LOCAL 
ga : VECTOR C2,LONG), 


MVL = .CURRENT VCBLVCB$L_MVL); 
IF FILE SPEC_CEN LEQU ADI$S.FILEID 


GQOCCOCCOC COCO OSOS COSC SOCOOGOOCCOCOOCOOOOOOCOOOOOOOOOoOO 
SSNS SSS 
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MEW OO OONOU SW — 
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BEGIN 
IF ,MVLCAVLSB_STDVER] GTR 3 
HDR4CHD4$B_FILEID_EXT_SIZE] = 0 
CHSFILL(°O" ,HD4SS_FILEID_EXT_V3,HDR4CHD4$T_FILEID_EXT_V32); 
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ELSE 
BEGIN 
IF MVLCAVLSB_ STDVER] GTR 3 
cL sphDRACHDGSB_FILEID_ExT SIZE] = .FILE_SPEC_LEN = HD1$S_FILEID 
BEGIN 
LOCAL LEN; 
LEN = .FILE SPEC_LEN - HD1$S_FILEID; 
DESCREO) = AD4 ; FILEID EXT 03; 
DESCRL1) = HOR4CADGST FILEIO_EXT_v3); 
SFAO(CVT2,0,DESCR,.LEN); 
END; 
END; 
END; 


if enter function return file name string to user 
if {Local fF IB C FIBSW_DID_NUM ] NEQ 0 


RESULTANT_STRING ( .ANSI_NAME_SIZE LSS 0, 
FILE SPEC MAX, 
FILE-1DCOT, 
-VERSION ); 


transform the VMS file version number into ANSI format 


CALC_TAPE_VER ( -VERSION GEN_NUM_VER ) 

DESC cRI PT 1: D1$S_GENNO ? HDT$S GENVER: 

DESC cRIP TO 1 HDR T HDIST GE 

SYSSFAO ( DESCRIPTOR ( "!47L!27L' ), 0, DESCRIPT 
.GEN_NUM_VER C 0 J, .GEN_ non VERE 115; 


ry 


AX-11 Bliss-32 V4.0-74 
MTAACP.SRCJFRMHDR.B32; 


z; ! end of macro FORMAT_FILE_NAME 
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1b-5e 1984 02:19: AX-11 Bliss-32 V4.0-74 Page 9 F 

1 730071382 93318335 MTAACP. RCIFRMHDR.B32; . (4) Vv 
; ti? 133 } GLOBAL ROUTINE FORMAT_HDRS : COMMON_CALL NOVALUE = ‘ 
> 415 +98 1 l4+ : 
; $18 796 1! : 
; 41 797 1 =! FUNCTIONAL DESCRIPTION: : 
3 rt 738 ! This routine formats HDR1, HDR2, HDR3 and HDR4. ° 
; 420 soy 1 ! CALLING SEQUENCE: : 
; 421 ‘ee FORMAT _HDRS() ° 
: 4 ; 802 1! : 
; 4 805 1 ! INPUT PARAMETERS: : 
: 424 bape 1: none : 
; 425 . 33 : 
; 4 $ Bane 1 ! IMPLICIT INPUTS: ; 
; 4 0807 1! CURRENT_VCB = address of current vcb : 
; 428 0808 1! HDR1 = address of HDR1 Label : 
: 429 0809 1! HDR2 = address of HDR2 Label ‘ 
: 430 0810 1! HDRS = address of HDR3S Label : 
; 431 0811 1! HDR4 = address of HDR4 Label ‘ 
; $36 pats 1% LOCAL_FIB - copy of user's fib : 
; 4 0815 1! : 
; 434 0814 1 ! OUTPUT PARAMETERS: : 
; 435 0815 1! none ; 
; 436 pale 1! : 
3; 437 0817 1 ! IMPLICIT OUTPUTS: : 
; 438 0818 1! HDR1, HDR2, HDR3, and HDR4 formatted : 
; 439 0819 1! : 
; 440 0820 1 ! ROUTINE VALUE: : 
3 441 0821 1! none : 
; 44 08 § 2 : 
3; 44 08 1 ! SIDE EFFECTS: : 
> 444 0824 1! none ; 
3; 445 38 > 34 : 
: 446 8 $ 1 !<- : 
; 447 08 1 : 
: 448 0828 2 BEGIN ; 
; 449 +134 : 
; 450 0830 EXTERNAL ROUTINE : 
: «451 0831 CONVDATE_R2J, ! convert regular date to : 
; 45 bass ! Julian for tape : 
; 45 08 SYSSASCTIM : ADDRESSING_MODE(ABSOLUTE),! get ASCII date/time : 
3: 454 08 SYSSFAO : ADDRESSING MODE(ABSOLUTE),! format ASCII output : 
; $29 0835 WRITE_ATTRIBUTE : COMMON_CALC; ! write user supplied attrbts : 
: 439 0837 
; 458 8 EXTERNAL REGISTER : 
> 459 39 COMMON_REG; ; 
: 460 0 : 
; 461 1 EXTERNAL : 
; 46 § CURRENT_UCB : REF BBLOCK, ! address of current UCB : 
; 46 8 HDR1 : REF SBLOCK, ' address of HDRI(EOF1) Label : 
: 464 & HOR REF BBLOCK, ' address of HDR cenrg? Label : 
; 465 5 HDR REF BBLOCK, ' address of HDRS(EOFS) Label : 
; $96 § HDR4 REF BBLOCK, ' address of HDRS(EOF4) Label : 
; 46 10_PACKET REF BBLOCK, ! address of 10 request packet : 
3 $38 8 LOCAL_FIB : BBLOCK; ! copy of user file info block : 


12 
-$ep-1984 02:19: AX-11 Bliss-32 V4.0-74 P 10 FRI 
1b-Se0-1 1984 95: 13:3 YATAACPCSRESFRAHDR 3e, wr ed) vO 
: 470 50 BIND : 
: 471 1 CVT4 = DESCRIPTOR ( '!4xw' ), ; 
; ze : CvT5 = DESCRIPTOR ( 'iSzw' )- : 
3; 47 DEFAULT = UPLIT CB0si285, ; 
3; 474 4 DEF_HEX = UPLIT ('0200') F 
; 479 5 STARID = UPLIT ("DECFILE11A"); ; 
: a3$ 5 GLOBAL ; 
; $f S26 NMBLOCK : BBLOCK (10); ! mame block : 
: 480 860 LOCAL : 
; 481 yd DESCR VECTOR (2), ! general Pdescriptor : 
3; 4 ¢ 6 VL REF BBL OEE. ! magtape volume List ; 
: ret 8507 TODAY VECTOR Ci2, BYTE]; ! regular date string ; 
: 485 0865 : 
3 ry] BE08 ! Blank fill the headers and afzteuie the fields 3 
: re O86 i in HDR1, HDR2, HDRS, and H : 
: 489 9 CHSFILL(' ", 320 : 
> 490 0870 HDR1CHD1$L fit i622 aA F 
; 491 0871 MVL = . CURRENT VCBLVCBS via : 
: 49 087¢ CHSMOVE (HD1$S FYCESETaDE “AVL AVLS$T_SET_1D) HORI CHDIST_FILESETIDI); ; 
: 498 0873 CHSFILL('O', ADISS_BLOCKCNT, HDRICADIST_BLOCKCNTJ); ; 
3 $32 th : If volume is for interchange do not write any VMS specific fields. ; 
3 497 0877 IF NOT. . CURRENT _VCBLVCBSV_INTCHG) : 
: 499 0879 CHSMOVE(10, STARID, HORICHD1ST_SYSCODE]) ; 3 
; 33) pees : default expiration and creation date ; 
Bo BS trary | 
: 505 885 SYSSASCTIM(O- BAY: oe, 0, 0); ! get today's date in dd-mmm-yyyy : 
; 506 0886 CONVDATE_R2J(TODAY, HDR1CHD1$T_CREATEDT)); : 
; 207 0887 CHSMOVE (AD1$S_CREATEDT, HDRICHD1$T_CREATEOT), HDRICHD1$T_EXPIREDT)); : 
. en ee 
> 511 0891 i format HDR2 defaults 3 
21g O89 : 
; He ie HORZEHDZSL $L -HD2L 10] mai Mai ; 
: 16 896 DESCREO .- “hp $5 BL Ot : 
3 ae3 DESCRL1) = HDR2CADOST XBLOEKLEND: 3 
; 19 te fill in the blocksize : 
; 3 1 1 iF NOT S$FAO(CVTS, 0, DESCR, .CURRENT_UCBCUCB$W_DEVBUFSIZ)) ; 
i Bee é THEN CHSMOVE (HD2$S_GLOCKLEN, DEFAULT? HORCCHD2ST_BLOCKLEN)) ; : 
; ; ¢ : default the the record size to be the blocksize 3 
: 526 308 CHSMOVE (HD2$S_RECLEN, HDR2CHD2$T_BLOCKLEN], HDR2CHD2$T_RECLEN)); : 
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: 527 907 : 
: 8 443 use the record size if it exists : 
: 530 10 iF .CURRENT_VCBCVCB$W_RECORDSZ) NEQ 0 : 
3 1 91 THEN ; 
; ; 31 BEGIN 3 
; 91 DESCREO = HD2$s RECLEN: ; 
: 334 91% DESCRE1] = HDR2CAD2$T_RECLEN); : 
; 2 0916 4 IF NOT SFAO(CVTS, 0, DESCR, .CURRENT_VCBLVCB$W_RECORDSZJ) ; 
3 2 8 apis ep, CHSMOVE(HD2SS_RECLEN, HDR2CHD2$T_BLOCKLEN], HDR2CHD2$T_RECLEN]); ; 
: 540 920 : : 
: 341 09 1 HDR2CHD2$T_BUFOFF] = '00'; 

ie 

: 545 0925 i default HDR3 ( sequencial files, fixed Lenght block size ) 

Me 

: 548 0928 HDRSCHDSS1 HD3LID) = ‘HDR3'; 

3: 549 0929 GHSE ILL *, HD3$S_RECATR, HDR3CHD3$T_RECATRI); 

: 550 0930 (HDR3CHD3$T_RECATRI + 4)<6, 32> = *0201'; 

: 551 0931 

i 33g $933 » 

; 320 0934 i default HDR4 no long file name, make the default dependant on the 

s 5355 ! ANSI version type 

i : 

: 558 HDR4CHD4$L_HD4LID) = "HDR4'; 

; 259 IF -MVLCAVESB_ STOVER GTR 3 

; 361 HDR4CHD4$B_FILEID_EXT_SIZEJ = 0 

; 508 945 CHSFILL('O", HD4$S_FILEID_EXT_V3, HDR4CHD4$T_FILEID_EXT_V32); 

: 26 Re? hd 

; 268 i fill im the RMS default record size 

; 568 48 ! if record size on mount then use it 

3 26° ! else if blocks size the use it 

5 2 0 ' else default 

; o DESCR 03 = 4; 

3 574 DESCRC1) = HOR3CHD3$T_RECATRI; 

; %e IF CURRENT _VCB VCBSW-RECORDS2] NEQ 0 

; 57 BEGIN 

; i 4 IF NOT SFAO( CVT4, 0, DESCR, .CURRENT_VCBLVCBSW_RECORDSZ) ) 

; rs BEGIN 

: ; 1 5 IF NOT SFAO( CVT4, 0, DESCR, = CURR NT _UCBLUCBSW._DEVBUFSIZ] ) 

3 282 : THEN CHSMOVE ( 4, DEF _HEX, HORSCHDSST"RECATR] ): 


-DEVBUFSIZ] ) 


Wi 
) 


»_ «CURRENT_UCBCUCBS 
AoRSEHDSSTRECATRG ; 
! end of routine FORMAT_HDRS 
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«PSECT S$LOCKEDD1$,NOEXE,2 


00000 NMBLOCK:: 


10 


-BLKB 


Pp 
Pp 
Pp 
P 
Pp 
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-EXTRN CONVDATE 
-EXTRN SYSSFAO, 
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FRMHDR 16-Sep- 19 AX-11 Bliss-32 V4.0-742 Page 13 
v04=000 1 =tep- 1382 96: :46: +38 MTAACP. SRCJFRMHDR.B32; 1 9 a) 
EXTRN tone UCB. HD HORI : 
SEXTRN Backer” LOCA ; 
EXTRN ere TAPE VER, ERASE _NAME_TYPE : 
“EXTRN PARSE _QUOT : 
SEXTRN RESULTANT J$ TRING : 
“EXTRN STRIP VERSION, ANSI_NAME_SIZE : 
»EXTRN WORK. AR EA : 
.PSECT $CODE$,NOWRT,2 : 
07FC 00000 .ENTRY FORMAT_HDRS, Save R2,R3,R4,R5,R6,R7,R8,R9,- ; 0793 ; 
5A 000000006 00 9€ 90002 MOVAB SYSSFAO R10 : 
5E FF24 CE 3 00 MOVAB =220 : 
T4 00006 cr p 0005 MOVL HDR1, R + 0869 
0140 8F 20 bE 00 ¢ 90013 MOVCS #0, (SP), #32, #320, (R6) : 
66 31524448 8F DO o00t8 MOVL § #827475016, (R6) + 0870 
57 34 AB DO 000 MOVL. 52(CURRENT VCB), MVL + 0871 
15 Ab oc A? 06 38 0026 MOVC3 #6, 12(MVLY, 21(R6) : 087 
06 30 6E - 00 C. 00 ¢ mMovCS #0, (SP), bag. #6, 54(R6) : 087 
06 2c AB 04 g0 00033 BBS #4, 44(CURRENT_VCB), 1$ + 0877 
3c 9C AF OA 28 00038 MOVC3 #10, STARID, 60(R6) + 0879 
FB AD OC 00 O003E 1S: MOVL = #1 R > 0883 
FC OAD EC AD 9E 0004 MOVAB TODAY, DESCR+4 : 0884 
7E 7C 0004 CLRQ = =(SP) : 0885 
rege gaan GagIMe : 
000000006 9F 4 FB OO4E CALLS #4, @#SYSSASCTIM : 
7E 00006 CF 9 C1 0005 ADDL3 #41, HDR, -(SP) : 0886 
EC AD 9F 00058 PUSHAB TODAY ; 
00006 CF 02 FB 0055 CALLS #2, CONVDATE_R2J : 
50 00006 CF B0 006 MOVL. HDRI, R : 0887 
2F ad 29 «AO 06 28 00068 MOVC3 #6, 41(RO), 47(RO) : 
50 00006 CF DO 00066 MOVL HDR2, R + 0894 
60 32524448 8F 00 000 MOVL Ho. e5¢e 32. (RO) ; 
oS OND “6 85 BO OOO HOVE : Oboe 
FC AD 05 ao a 008 MOVAB Sho) et : 0897 
50 00006 CF 00 MOVL CURRENT TU : 0901 
7E 42 AO 3C 0008D MOVZWL : 
F8 AD 9F 00091 PUSHAB DESCR : 
7E p4 94 CLRL = = (SP) : 
FF2A CF OF PUSHAB CVTS : 
6A 04 FB O9A CALLS #4, SYSSFAO ; 
$5 oo006 ef OOAD Gove bR2~ RO : 0902 
05 ao FF22 cr §5 : Ag MOVC3 a SEFAULT, 5(RO) : 
0A Ab i eee ; ~ as MOVES Ber Scher. 10¢R6) _— 
58 50 AB C 00087 MOVZWL BS tcURRENT, VCB), R8 : 0910 
D4 00088 CLRL : 
: p BD TSTL Rs : 
BF BEQL 83 : 
9 06 000C1 INCL RO ; 
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FRMHDOR 16-Se AX-11 Bliss-32 V4.0-74 Page 
v04-000 18: Sep- 138 96:13 Rt: MTAACPS SROIFRMHD R.B32; ’ 
F8 AD 05 po C3 OVL #5, DESCR : ; 
FC OAD OA Ag E 000¢ MOVAB 1O(R6), DESCR+4 ; : 
5 pd eC PUSHL : ; 
F8 AD 9F 000C PUSHAB DESCR : ; 
7E b4 D CLRL = = (SP) : : 
FEED CF 9F 000D PUSHAB CVTS : ; 
6A 4 F D CALLS a, ie : ; 
08 0 € ODA BLBS : ; 
0000¢ i p D MOVL ROke : : 
05 A0 5 OE MOVC3) #5 25° », 10(RO) : ; 
5 9 G cf DO OO0ES 3S: MOVL HDR2, R : ; 
2M Guede GF BE GOBRE——ROW fngg’eg gsm | : 
66 3352444 br BO O00F MOVL. #861629448, (R6) ; ; 
Ae " 00 ¢ OFF MOVES #0, (SP), #48, #64, 4(R6) : ; 
08 a6 3130335 0. BF 00 00108 MOVL #825242160, 8(R6) ; : 
60 su5206es br b9 00115 MOVE 4877806664, (RO) ; : 
05 18 01 0 BLEQU 4$ ; ; 
04 Ad 94 91 ‘ CLRB = &(RO) : : 
06 11 001 BRB 55 : ; 
43 A0 3030 8F BO 01 7? 4$: MOVW #12336, 67(RO) : : 
F8 AD 04 00 0012D 5$: MOVL 4 ESCR $ b 
FC OAD 04 Ab 43 00131 MOVAB 4(R6), DESCR+4 : ; 
11 59 £9 00136 BLBC 3=s_«aR,,_«6$ : ; 
58 DD 00139 PUSHL : ; 
F8 AD OF 00138 PUSHAB DESCR ; : 
7E 04 00135 CLRL = = (SP) : ; 
FE74 CF OF 0014 PUSHAB CVT4 ; F 
6A 04 FB 00144 CALLS #4, SYSSFAO : ; 
23 50 €8 00147 BLBS RO, 7$ : ; 
50 00006 CF BO 014A 6$: MOVL CURRENT _UCB RO : 3 
7€ 42 AO 3C OO14F MOVZWL 66(RO),~=(SP) : ; 
FB AD OF 00153 PUSHAB R : ; 
7E D4 00156 CLRL = (SB) : ; 
FESC CF 9F 00158 PUSHAB CVT : ; 
ry) 04 re 015¢ CALLS as, : ae : ; 
0B 0 €8 0015F BLBS ; ; 
50 00006 CF DO O16¢ MOVL ; ; 
04 AO FE69 = CF BO 016 MOVL ser spent 4(RO) : ; 
6E ia 00 C the 7$: mMovCS #0,~(SP5, #0, 0. NMBLOCK : : 
00006 cr 60 FB 1 CALLS #0, WRITE_ATTRIBUTE : : 
0 00006 CF DO OOI7A MOVL I0°PACKET? RO : ; 
50 2c BO DO 0017F MOVL  @4%(R0), ABD : ; 
12 AO BS 00183 TSTw  18(ABD : ; 
g } 1 BEQL = 8$ ; : 
0099 37 001 BRW 19$ : : 
oc AE p4 188 8$ CLRL « FILE_SPEC_LEN : : 
4 D4 001 CLRL SséXK : : 
04 4 £9 00190 9$ BLBC ~—E_«K,,_ 108 : ; 
D4 1 cCLRL RS ; : 
1 0019 BRB 11$ : ; 
55 DO 00197 108: MOVL #2, RS : : 
50 1 CE 0019A 11$:  MNEGL #1. I ; ; 
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RI, CHARS+2 
CHARSCJJ, R3 
NAME_STRING, R2 
R3 70 


4 
64(R3), R3 
15$ 


#18, R3 
R3, @FILE_SPEC_LENCR2) 
FILE SPEC~LEN 

#2, J, 1 

RS. 1. 12$ 

18$ 
NAME_STRING, RO 
#46, aFILE_SPEC_LENCROJ 
FILE sec _CEN 

# , ry - 9$ 
NMBLOCK+8, VERSI 
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NAME STRING, FILE_SPEC_PTR 
GUOTED_NAME 


FILE_SPEC_LEN 
R1 


J, FILE_SPEC_PTR 
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; Routine Size: 877 bytes, 


1 
1 END 
1 

OE 


0988 LUDOM 


SCODES 
SLOCKEDD1$ 


File 
_$255$DUA28: CSYSLIBILIB.L32;1 


; 609 
; Size: 
; Run Time: 


Routine Base: 


D 13 
16-Sep- 
1a-Sep- 

0000G CF 04 FB 3F 298: 
18 as 3 it $3: 
7E 5 C 47 
0000G CF 2 FB 4A 
4 AD g D 4F 
0000G CF C1 00353 
1¢ AE DD O035A 
1¢ AE OD 0035D 
E4 Ab 9F 00 $9 
7E 04 0036 
FCSF CF 9F 00365 
6A 05 FB 00369 
04 0036C 


SCODES + 004C 


PSECT SUMMARY 
Bytes Attributes 
933 NOVEC,NOWRT, RD , EXE,NOSHR, 
10 NOVEC, WRT, RD * NOEXE, NOSHR, 


Library Statistics 


Symbols 
Total Loaded Percent 
18619 50 0 


COMMAND QUALIFIERS 


poe 0 
77 code + 86 data bytes 
00:19.9 


1986 98:48 


38 AX-11 Bliss-32 V4.0-742 
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#4, RESULTANT_STRING 


vio 
~ 


AAJ 
#5, SYSSFAO 


LCL, 
LCL, 


REL, 
REL, 


CON,NOPIC,A 


ALIGN(2) 
CON,NOPIC,ALIGN(2) 


Pages 
Mapped 


1000 


Processing 
Time 


00:01.9 


BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:FRMHDR/OBJ=OBJ$:FRMHDR MSRC$:FRMHDR/UPDATE=(ENHS:FRMHDR) 


; 0984 


F RMI 
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F 
v04- 


F}epeed sas 
es/CPU Min: 
Lexenes/CPU-Min: 243 
Memor Yeut 299 
Compi ation Comple 
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